home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / T-COMAL Today / (k)tf.d64 / func.random'size < prev    next >
Text File  |  2009-01-03  |  514b  |  21 lines
  1. 0010 ╞╒╬├ RANDOM'SIZE(NAME$) ├╠╧╙┼─
  2. 0020   ╘╥┴╨ // SEE IF FILE EXISTS FIRST
  3. 0030     ╧╨┼╬ ╞╔╠┼ 82,NAME$,╥┼┴─
  4. 0040     ├╠╧╙┼ ╞╔╠┼ 82
  5. 0050     LENGTH:=0
  6. 0060     ╠╧╧╨ 
  7. 0070       ╘╥┴╨ // NOW FIND ╥┼├╧╥─ LENGTH
  8. 0080         LENGTH:+1
  9. 0090         ╧╨┼╬ ╞╔╠┼ 82,NAME$,╥┴╬─╧═ LENGTH
  10. 0100         ├╠╧╙┼ ╞╔╠┼ 82
  11. 0110         ╥┼╘╒╥╬ LENGTH
  12. 0120       ╚┴╬─╠┼╥ 
  13. 0130         ├╠╧╙┼ ╞╔╠┼ 82
  14. 0140       ┼╬─╘╥┴╨ 
  15. 0150     ┼╬─╠╧╧╨ 
  16. 0160   ╚┴╬─╠┼╥ 
  17. 0170     ├╠╧╙┼ ╞╔╠┼ 82
  18. 0180     ╥┼╘╒╥╬ 0
  19. 0190   ┼╬─╘╥┴╨ 
  20. 0200 ┼╬─╞╒╬├ RANDOM'SIZE
  21.